home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / double.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  6KB  |  220 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "double.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    DoubleFloat_c
  20. #define    ivType    DoubleFloat_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    DoubleFloat_c;
  25.  
  26.  
  27. #line 28 "double.c"
  28. typedef struct  _DoubleFloat_iv_t  {
  29.     double iVal;
  30. }    DoubleFloat_iv_t;
  31.  
  32.  
  33.  
  34. #line 25 "double.d"
  35. cmeth objrtn DoubleFloat_cm_gNewWithDouble(object self, double val)
  36. { 
  37.     object obj = oSuper(DoubleFloat_c, gNew, self)(self); 
  38.     ivType *iv = ivPtr(obj); 
  39.     iv->iVal = val; 
  40.     return(obj); 
  41. } 
  42.  
  43. imeth objrtn DoubleFloat_im_gStringRepValue(object self)
  44. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  45.     return vSprintf(String, "%f", iv->iVal); 
  46. } 
  47.  
  48. imeth char DoubleFloat_im_gCharValue(object self)
  49. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  50.     return (char) iv->iVal; 
  51. } 
  52.  
  53. imeth short DoubleFloat_im_gShortValue(object self)
  54. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  55.     return (short) iv->iVal; 
  56. } 
  57.  
  58. imeth unsigned short DoubleFloat_im_gUnsignedShortValue(object self)
  59. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  60.     return (unsigned short) iv->iVal; 
  61. } 
  62.  
  63. imeth long DoubleFloat_im_gLongValue(object self)
  64. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  65.     return (long) iv->iVal; 
  66. } 
  67.  
  68. imeth double DoubleFloat_im_gDoubleValue(object self)
  69. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  70.     return (double) iv->iVal; 
  71. } 
  72.  
  73. imeth void * DoubleFloat_im_gPointerValue(object self)
  74. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  75.     return (void *) &iv->iVal; 
  76. } 
  77.  
  78. imeth objrtn DoubleFloat_im_gChangeValue(object self, object val)
  79. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  80.     ChkArg(val, 2); 
  81.     iv->iVal = gDoubleValue(val); 
  82.     return self; 
  83. } 
  84.  
  85. imeth objrtn DoubleFloat_im_gChangeCharValue(object self, int val)
  86. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  87.     iv->iVal = (double) val; 
  88.     return self; 
  89. } 
  90.  
  91. imeth objrtn DoubleFloat_im_gChangeShortValue(object self, int val)
  92. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  93.     iv->iVal = (double) val; 
  94.     return self; 
  95. } 
  96.  
  97. imeth objrtn DoubleFloat_im_gChangeUShortValue(object self, unsigned val)
  98. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  99.     iv->iVal = (double) val; 
  100.     return self; 
  101. } 
  102.  
  103. imeth objrtn DoubleFloat_im_gChangeLongValue(object self, long val)
  104. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  105.     iv->iVal = (double) val; 
  106.     return self; 
  107. } 
  108.  
  109. imeth objrtn DoubleFloat_im_gChangeDoubleValue(object self, double val)
  110. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  111.     iv->iVal = (double) val; 
  112.     return self; 
  113. } 
  114.  
  115. imeth objrtn DoubleFloat_im_gRound(object self, int p)
  116. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  117.     double r; 
  118.  
  119.     r = pow(10.0, (double) p); 
  120.     if (iv->iVal < 0.0) 
  121.         iv->iVal = -(floor(.5 + -iv->iVal * r) / r); 
  122.     else 
  123.         iv->iVal = floor(.5 + iv->iVal * r) / r; 
  124.     return self; 
  125. } 
  126.  
  127. imeth objrtn DoubleFloat_im_gTruncate(object self, int p)
  128. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  129.     double r; 
  130.  
  131.     r = pow(10.0, (double) p); 
  132.     if (iv->iVal < 0.0) 
  133.         iv->iVal = -(floor(-iv->iVal * r) / r); 
  134.     else 
  135.         iv->iVal = floor(iv->iVal * r) / r; 
  136.     return self; 
  137. } 
  138.  
  139. imeth int DoubleFloat_im_gHash(object self)
  140. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  141.     double t; 
  142.  
  143.     t = .6125423371 * iv->iVal; 
  144.     t = t < 0.0 ? -t : t; 
  145.     return (int) (BIG_INT * (t - floor(t))); 
  146. } 
  147.  
  148. imeth int DoubleFloat_im_gCompare(object self, object obj)
  149. { DoubleFloat_iv_t *iv = GetIVs(DoubleFloat, self);
  150.     double sv, ov; 
  151.  
  152.     ChkArg(obj, 2); 
  153.     if (ClassOf(obj) != CLASS) 
  154.         return oSuper(DoubleFloat_c, gCompare, self)(self, obj); 
  155.     if ((sv=iv->iVal) < (ov=ivPtr(obj)->iVal)) 
  156.         return -1; 
  157.     else if (sv == ov) 
  158.         return 0; 
  159.     else 
  160.         return 1; 
  161. } 
  162.  
  163.  
  164. #line 165 "double.c"
  165.  
  166. objrtn    DoubleFloat_initialize(void)
  167. {
  168.     static  CRITICALSECTION  cs;
  169.     static  int volatile once = 0;
  170.  
  171.     ENTERCRITICALSECTION(_CI_CS_);
  172.     if (!once) {
  173.         INITIALIZECRITICALSECTION(cs);
  174.         once = 1;
  175.     }
  176.     LEAVECRITICALSECTION(_CI_CS_);
  177.  
  178.     ENTERCRITICALSECTION(cs);
  179.  
  180.     if (DoubleFloat_c) {
  181.         LEAVECRITICALSECTION(cs);
  182.         return DoubleFloat_c;
  183.     }
  184.     INHIBIT_THREADER;
  185.     Number_initialize();
  186.     if (DoubleFloat_c)  {
  187.         ENABLE_THREADER;
  188.         LEAVECRITICALSECTION(cs);
  189.         return DoubleFloat_c;
  190.     }
  191.     DoubleFloat_c = gNewClass(Class, "DoubleFloat", sizeof(DoubleFloat_iv_t), 0, Number, END);
  192.     cMethodFor(DoubleFloat, gNewWithDouble, DoubleFloat_cm_gNewWithDouble);
  193.     iMethodFor(DoubleFloat, gTruncate, DoubleFloat_im_gTruncate);
  194.     iMethodFor(DoubleFloat, gRound, DoubleFloat_im_gRound);
  195.     iMethodFor(DoubleFloat, gUnsignedShortValue, DoubleFloat_im_gUnsignedShortValue);
  196.     iMethodFor(DoubleFloat, gChangeDoubleValue, DoubleFloat_im_gChangeDoubleValue);
  197.     iMethodFor(DoubleFloat, gDoubleValue, DoubleFloat_im_gDoubleValue);
  198.     iMethodFor(DoubleFloat, gCompare, DoubleFloat_im_gCompare);
  199.     iMethodFor(DoubleFloat, gChangeLongValue, DoubleFloat_im_gChangeLongValue);
  200.     iMethodFor(DoubleFloat, gChangeShortValue, DoubleFloat_im_gChangeShortValue);
  201.     iMethodFor(DoubleFloat, gShortValue, DoubleFloat_im_gShortValue);
  202.     iMethodFor(DoubleFloat, gPointerValue, DoubleFloat_im_gPointerValue);
  203.     iMethodFor(DoubleFloat, gCharValue, DoubleFloat_im_gCharValue);
  204.     iMethodFor(DoubleFloat, gStringRepValue, DoubleFloat_im_gStringRepValue);
  205.     iMethodFor(DoubleFloat, gChangeUShortValue, DoubleFloat_im_gChangeUShortValue);
  206.     iMethodFor(DoubleFloat, gHash, DoubleFloat_im_gHash);
  207.     iMethodFor(DoubleFloat, gChangeValue, DoubleFloat_im_gChangeValue);
  208.     iMethodFor(DoubleFloat, gLongValue, DoubleFloat_im_gLongValue);
  209.     iMethodFor(DoubleFloat, gChangeCharValue, DoubleFloat_im_gChangeCharValue);
  210.  
  211.     ENABLE_THREADER;
  212.  
  213.     LEAVECRITICALSECTION(cs);
  214.  
  215.     return DoubleFloat_c;
  216. }
  217.  
  218.  
  219.  
  220.